perm filename R3[226,DBL] blob
sn#043417 filedate 1973-05-22 generic text, type T, neo UTF8
00100 (SETQ BASE 12)
00200 (DE B (N) (DIFFERENCE 1.0 (NB N]
00300 (DE NB (N)
00400 (COND ((*LESS 21.0 N) 0.0)
00500 ((*LESS 16.0 N) 1.0)
00600 (T (PROG (SUM L L2)
00700 (SETQ SUM 0)
00800 (SETQ L 1.0)
00900 M (COND ((*LESS 13.0 L) (RETURN SUM))
01000 ((*LESS 9.0 L) (SETQ L2 10.0))
01100 (T (SETQ L2 L)))
01200 (SETQ SUM (PLUS SUM (TIMES (P L) (NB (PLUS L N)))))
01300 (SETQ L (ADD1 L))
01400 (GO M]
01500 (DE P (L) (QUOTIENT (NREM L) NTOTREM]
01600 (DE NREM (L) 13.0)
01700 (SETQ NTOTREM 52.0)